Trailing-Edge
-
PDP-10 Archives
-
6.1_emacs_manuals_1er
-
emacs/grind.:ej
There are no other files named grind.:ej in the archive.
( W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1
'W+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
m 6 = J V F P ; B P V Grind Sexp 1:<
FDLR
F[VBF[VZFLFSBOUND
F~MODELISP"N
0[Region Query Size'
Z:
:i*grindM(M.M& Save Region and Query)f"e '
WJ
[2[3
[D128*5,32:ID
11.*5:FD-D:M2
15.*5:FDRK:M2
12.*5:FD-D:M2
/*5:FDC
|*5:FDR@FLL
;*5:FDL:M3
(*5:FD:M3
!"! '*5:FD:M3
)*5:FDRM3C
:I2Z-.<1AF :;D>32I
:I3Z-.<1AF :;D>
HFD
J.(0FSVBW0L.FSVB)J
FSWIDTH-10[W
FSWIDTH*2/3[C
0FO..QFill ColumnF"NUW
QWUC'
-1FO..QComment Column+1F"G-1UC'
QC[M
-1FO..QMiser Column+1F"G-1UM'
[R:IR/8+1*8
0FO..QComment RoundingF"NUR'
M.M& Indent[I
[G@:IG`
[2S'R
1A- ("N@FWL '
FL-.-QW++(FSHPOSU2Q2)"LFLL '
CQ2-QM"L
!"!1AF';()"L@FWL1A-32"EC'''
FSHPOSU2
!LP!1a-32"EDOLP'
1A- )"EC '
FSHPOSU3
1A- ;"E
Q3-QC"GQC'"#Q3 R'MIL'
Q3-Q2"N13I10I
Q2/8,9IQ2&7,32I'
+1MGOLP
`
0MG
J7 F~(DEFUN "E
@FLL8 F=
"E
8D.U3L
Q3,.F~FEXPR
*(Q3,.F~MACRO
)"E
-2D6D'''
JHU2U3
>
JZ:
Q3,Q2 MACSYMA Grindr [0[1[9
0F[SERROR
1F[BOTHCASE
0FO..QFundamental..DF"EQ..D'[..D
FS^RMODE"NF-1"G1U0'
"#(B-(:))*(Z-(:))"G
:I*MOB Mark out of boundsFSERR'
.,(:)F U1J0U0
F=MODEMACSYMA"NOConfirm'
.,q1 -1000"g!Confirm!@FTDo you really want to Grind this s-expression? (Y or N):
FI:FC- Y( FSEchoDisplay CFSEchoDisplay)"N ''
.(<.,Q1FB\$\;;%0W>)J''
"#"GU0'
"#J0U0<S\$\;;%0W>J''
-S\$\;FSSVALUE"E0'"#2C.'U9Q9J
Q0<.,(S\$\;;R.)M(M.MGrind one MACSYMA statement)C>
Q9+2J Grind one MACSYMA statement9 [1[2[3[4[5[6[7[8[9[0[Y[Z[C[M
FXCQ..OUMFSBCREAGC
FNQM,Q..OUMU..OQMFSBKILL
ZJI]JI[R
<S/*;-2D.U9S*/-2D[DQ9,.FXDI $1$ >
J<S\";.U9SR[AQ9,.FXA
-DDI$FQA<I%>I$>
J<S\;[B.,.+1XB-DDI$$>
J<S/;-DI\>
J<S
;-D>
J<S ;-DI >
J<SIF;RI>
J<SELSETHEN;RI5RI>
J<
SDOFORINFROMNEXTSTEPTHRUUNLESSWHILE;
RI
R-S1A-32"EDI'"#C'>
J<SORANDNOT;RIR-SCI>
J<S ;-D>
J<S;-D>
J<S(,[;-D>
J<S[;-DI(C>J<S];-DI)>
J<S:;RI C(1A- =)*(1A- :)"EC'I >
J<S:=#<>;RI C1A- ="EC'I >
0U6J
<1:<FDL>:;%6>
<<
R-S1A-1"NC'.U9
FLLZ-.UZBUY
Q9,.FSBOUNDW0U5J
S(RB-."ES,FSSVALUE"N1U5''
"#B,.FBBLOCKLAMBDAFSSVALUE"L1U5''
J<S;
.U90A- "E1U1'"#-1A- O"E0U1'"#-1U1''
S,FSSVALUE"EZ-1J0A-1"ER'.U8'"#.-1U8'
Q9JFSQPPTRU7
<.,Q8FBFSSVALUE"EQ8J
.U9-SQ9-.-20"GC.U41A- "E
FLLQ9-."EOL1''"#1A- ("E
FLLQ9-."ERIQ4JI2+Q9U92+Q8U8OL1'''
Q4JI (Q9+2JI )4+Q9U94+Q8U8'
!L1!Q9J
FSQPPTR-Q7<I )>
Q7FSQPUNWI0;'
0A- "E-1A- O"E0U3'"#-1U3''
"#-1A- F"E1U3'"#-1A- N"E2U3'"#3U3'''
R-S(1A- )*(1A- )"N1U2
.U9-SQ9-.-20"GC.U41A- "E
FLLQ9-."EOL2''"#1A- ("E
FLLQ9-."ERIQ4JI2+Q9U92+Q8U8OL2'''
Q4JI (Q9+2JI )4+Q9U94+Q8U8'
!L2!Q9J'
"#0U2'
Q2"ECI (Q8+2U8[1Q3U1'
"#<Q1*(Q1-3)"EI )Q8+2U8]1'"#Q3U10;'>'S>
>
J<S;-DI>
Q5"EJ<S,;-DI;>'
"#J<S,;-DI>
JS(RIZ-1JI'
ZJQY,Z+QZFSBOUND
1:<FDL>:;>Q6-1U6-Q6"E0;'JQ6FDL>
0U8J<S ;
(0A- )"EI
Q8<I >'
"#(1A- ()"ECI
%8<I >'
"#0A- "NRI C'CQ8-1U8(1A- )*(1A- )"N
(1A- )*(1A- )*(1A- ;)"EC'I
Q8<I >'''>
J<S;;-DI,1A-13"NI '>
J<S;-D>J<S ;-DD>J<S\;-DI/>
J<S(;-2DI[>J<S);-2DI]>JDI
ZJ-DI
JBU9<S
;.-2-Q9-70"G-LS .-1U8Q8-Q9-50"LQ9,Q8XC
Q9+70,Q8+10FB,)FSSVALUE"NC1A- "ED'OL3'
Q9+71,Q8+1FBFSSVALUE"N1A- "ED'!L3!I
GC0L'"#L''"#L''.U9>
J<S(
;(-3A-32)*(-3A-10)"ES 3R0:K'>
J<S;-DI >
ZJ<.U90:LQ9-.-2"E2D'"#0;'>
ZJ<-S$$;2DI\GB0A-13"EI
']B>
ZJ<-S%$;CDI"R.U9-S$DI".,Q9KGA]A>
ZJ<-S$1$;3D0LS 0A-13"ED-D0K'"#0L'
I/**/
4RGD]D>
HFXC-1FSQPUNWINDFKGC ~FILENAME~ GRIND ~DOC~ ~FILENAME~& GRIND macros for formating code.
~DOC~ Grind Sexp: C Grind the sexp after the pointer.
Uses QMiser Column to decide where to start using "Miser" format,
and QFill Column as the page width to aim for.
Can be undone with Undo.
~DOC~ MACSYMA Grind* C Format MACYSMA code.
When called from ^R mode it grinds from . to <mark>,
unless it is given an argument in which case
it does the command point is in. When called from regular TECO it
the whole buffer if given no argument or <n> MACSYMA commands after
the . if given an argument <n>.
% ~DOC~ Grind one MACSYMA statement[ C Grinds one MACSYMA statement.
Args delimit the statement (exclusive of the ; or $)
~DIRECTORY~< Grind Sexp
MACSYMA Grind
Grind one MACSYMA statement
~INVERT~ [1<Q1-1U1Q1FP;>Q1